home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / acctg / db3ledge / menu.prg < prev    next >
Encoding:
Text File  |  1986-01-12  |  2.2 KB  |  117 lines
  1. CLEA
  2. SET DELIM TO '[]'
  3. SET DELIM ON
  4. SET BELL OFF
  5. SET HEAD OFF
  6. SET FUNCTION 9 TO 'DO MENU;'
  7. SET SAFETY OFF
  8. ************ MAIN MENU (MENU.PRG)--JAY KENNEY,SAN DIEGO,CA..92108
  9. *RBBS-JAY'S OFFICE SUPPLIES-619-291-5682=DATA..VOICE=619-295-6053
  10. SET TALK OFF
  11. DO WHILE .T.
  12. CLEA
  13. RESTORE FROM MTITLE
  14. CLEAR
  15. TYPE CKMENU.TXT
  16. STORE 0 TO T
  17. STORE LEN(MTITLE) TO T
  18. STORE (80-T)/2 TO T
  19. @ 2,T SAY ' '+MTITLE+' '
  20. @ 21,32 SAY ' Select option '
  21. STORE ' ' TO option
  22. WAIT '                                       ' TO option
  23. DO CASE
  24. CASE option='0'
  25. clea
  26. quit
  27. CASE option='1'
  28. DO ENTERCHK
  29. CASE option='2'
  30. USE LEDGER
  31. clea
  32. @ 15,25 SAY 'Press Ctrl W when finished....'
  33. BROW FIEL CHKNO,WHOM,CKDATE,AMTCHK,ACCT,ACCTDESC
  34. @ 15,25 SAY 'Want to pack the database ? '
  35. ?
  36. WAIT '                                     ' TO OPTION
  37. IF OPTION='Y'
  38. SET TALK ON
  39. CLEA
  40. PACK
  41. SET TALK OFF
  42. ENDIF
  43. CASE option='3'
  44. DO DEPOSITS
  45. CASE option='4'
  46. SET FUNC 6 TO 'DO MONTH;'
  47. CLEA
  48. @ 21,1 SAY 'Press F6 to continue '
  49. CANCEL
  50. CASE option='5'
  51. DO RECON
  52. CASE option='9'
  53. EJECT
  54. case option='6'
  55. DO CLOSEOUT
  56. CASE OPTION='X'
  57. CLEA
  58. SET FUNCT 3 TO 'DO NAMECHG;'
  59. @ 4,1 SAY 'Press F3 key to change company name.'
  60. @ 5,1 SAY 'Press F9 key to return to main menu.'
  61. ?
  62. RETURN
  63. CASE OPTION='7'
  64. USE ACCT
  65. BROW
  66. CASE OPTION='A'
  67. DO ENTER2
  68. CASE OPTION='B'
  69. CLEA
  70. @ 15,25 SAY 'Press Ctrl W when finished....'
  71. USE PAY
  72. BROW FIEL NAME,INV,NOTES,NET,DATE,DUEDATE,ACCT
  73. @ 15,25 SAY 'Want to pack the database ? '
  74. ?
  75. store ' ' to option
  76. WAIT '                                       ?  ' TO OPTION
  77. IF OPTION='Y'
  78. SET TALK ON
  79. CLEA
  80. PACK
  81. SET TALK OFF
  82. ENDIF
  83. CASE OPTION='C'
  84. SET FUNCT 8 TO 'DO UPDATE;'
  85. CLEA
  86. SET TALK ON
  87. @ 15,15 SAY 'Press F8 key to continue.'
  88. RETURN
  89. CASE OPTION='D'
  90. DO ADDNAMES
  91. CASE OPTION='E'
  92. DO VENDEDIT
  93. CASE OPTION='F'
  94. CLEA
  95. STORE ' ' TO OPTION
  96. @ 15,25 SAY 'Do you want to print?'
  97. ?
  98. WAIT '                                ? ' TO OPTION
  99. IF OPTION='Y'
  100. USE PAY
  101. REPO FORM VEND HEAD [&MTITLE;REPORT BY VENDOR] NOEJECT TO PRIN
  102. ENDIF
  103. CASE OPTION='G'
  104. DO VENDLIST
  105. CASE OPTION='H'
  106. DO LABELS
  107. OTHERWISE
  108. @ 23,1 SAY [I'm so confused]
  109. @ 23,26 SAY '????'
  110. @ 23,68 SAY 'try again...'
  111. STORE 1 TO xx
  112. DO WHILE xx<35
  113. STORE xx+1 TO xx
  114. ENDDO
  115. ENDCASE
  116. ENDDO WHILE t
  117.